Gyakorló feladat összehasonlításra:
Két véletlen szám létrehozása és összehasonlítása
program Hasonlit;
uses crt;
var a,b:integer;
BEGIN
a:=trunc(
*random+1);
writeln('Elso szam:',a);
b:=trunc(
*random+1);
writeln('Masodik szam:',b);
if (
a>b
a<b
) then begin
writeln('Az elso szam (',a,') nagyobb.');
end
else begin
writeln('A masodik szam (',b,') nagyobb.');
end;
END.
